Sub ArmenianLatArmToUnicode()
Call ArmenianToUnicode(&HB2, &H531) 
Call ArmenianToUnicode(&HB3, &H561) 
Call ArmenianToUnicode(&HB4, &H532) 
Call ArmenianToUnicode(&HB5, &H562) 
Call ArmenianToUnicode(&HB6, &H533) 
Call ArmenianToUnicode(&HB7, &H563) 
Call ArmenianToUnicode(&HB8, &H564) 
Call ArmenianToUnicode(&HB9, &H564) 
Call ArmenianToUnicode(&HBA, &H535) 
Call ArmenianToUnicode(&HBB, &H565) 
Call ArmenianToUnicode(&HBC, &H536) 
Call ArmenianToUnicode(&HBD, &H566) 
Call ArmenianToUnicode(&HBE, &H535) 
Call ArmenianToUnicode(&HBF, &H565) 
Call ArmenianToUnicode(&HC0, &H538) 
Call ArmenianToUnicode(&HC1, &H568) 
Call ArmenianToUnicode(&HC2, &H539) 
Call ArmenianToUnicode(&HC3, &H569) 
Call ArmenianToUnicode(&HC4, &H53A) 
Call ArmenianToUnicode(&HC5, &H56A) 
Call ArmenianToUnicode(&HC6, &H53B) 
Call ArmenianToUnicode(&HC7, &H56B) 
Call ArmenianToUnicode(&HC8, &H53C) 
Call ArmenianToUnicode(&HC9, &H56C) 
Call ArmenianToUnicode(&HCA, &H53D) 
Call ArmenianToUnicode(&HCB, &H56D) 
Call ArmenianToUnicode(&HCC, &H53E) 
Call ArmenianToUnicode(&HCD, &H56E) 
Call ArmenianToUnicode(&HCE, &H535) 
Call ArmenianToUnicode(&HCF, &H56F)
Call ArmenianToUnicode(&HD0, &H540)
Call ArmenianToUnicode(&HD1, &H570) 
Call ArmenianToUnicode(&HD2, &H541) 
Call ArmenianToUnicode(&HD3, &H551) 
Call ArmenianToUnicode(&HD4, &H542) 
Call ArmenianToUnicode(&HD5, &H572) 
Call ArmenianToUnicode(&HD6, &H543) 
Call ArmenianToUnicode(&HD7, &H573) 
Call ArmenianToUnicode(&HD8, &H544) 
Call ArmenianToUnicode(&HD9, &H574) 
Call ArmenianToUnicode(&HDA, &H545) 
Call ArmenianToUnicode(&HDB, &H575) 
Call ArmenianToUnicode(&HDC, &H546) 
Call ArmenianToUnicode(&HDD, &H576) 
Call ArmenianToUnicode(&HDE, &H547) 
Call ArmenianToUnicode(&HDF, &H577)
Call ArmenianToUnicode(&HE0, &H548)
Call ArmenianToUnicode(&HE1, &H578) 
Call ArmenianToUnicode(&HE2, &H549) 
Call ArmenianToUnicode(&HE3, &H579) 
Call ArmenianToUnicode(&HE4, &H54A) 
Call ArmenianToUnicode(&HE5, &H57A) 
Call ArmenianToUnicode(&HE6, &H54B) 
Call ArmenianToUnicode(&HE7, &H57B) 
Call ArmenianToUnicode(&HE8, &H54C) 
Call ArmenianToUnicode(&HE9, &H57C) 
Call ArmenianToUnicode(&HEA, &H54D) 
Call ArmenianToUnicode(&HEB, &H57D) 
Call ArmenianToUnicode(&HEC, &H54E) 
Call ArmenianToUnicode(&HED, &H57E) 
Call ArmenianToUnicode(&HEE, &H54F) 
Call ArmenianToUnicode(&HEF, &H57F)
Call ArmenianToUnicode(&HF0, &H550)
Call ArmenianToUnicode(&HF1, &H580) 
Call ArmenianToUnicode(&HF2, &H551) 
Call ArmenianToUnicode(&HF3, &H581) 
Call ArmenianToUnicode(&HF4, &H552) 
Call ArmenianToUnicode(&HF5, &H582) 
Call ArmenianToUnicode(&HF6, &H553) 
Call ArmenianToUnicode(&HF7, &H583) 
Call ArmenianToUnicode(&HF8, &H554) 
Call ArmenianToUnicode(&HF9, &H584) 
Call ArmenianToUnicode(&HFA, &H555) 
Call ArmenianToUnicode(&HFB, &H585) 
Call ArmenianToUnicode(&HFC, &H556) 
Call ArmenianToUnicode(&HFD, &H586) 
Call ArmenianToUnicode(&HFE, &H55A) 
Call ArmenianToUnicode(&HFF, &H58A)

End Sub

Sub ArmenianToUnicode(charin, Charout)

    With Selection.Find
        .Text = ChrW(charin)
        .Font.Name = "Arial LatArm"
        .Replacement.Text = ChrW(Charout)
        .MatchCase = True
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
            
            With .Replacement
            .ClearFormatting
            .Font.Name = "Sylfaen"
            End With
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

